home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / 335_04.zip / FRAEBIN.H < prev    next >
Text File  |  1993-04-13  |  1KB  |  85 lines

  1.  
  2.  
  3. /*
  4. HEADER:     ;
  5. TITLE:         Frankenstein Cross Assemblers;
  6. VERSION:     2.0;
  7. DESCRIPTION: "    Reconfigurable Cross-assembler producing Intel (TM)
  8.         Hex format object records.  ";
  9. FILENAME:     fraebin.h;
  10. SEE-ALSO:     frapsub.c, fraosub.c;
  11. AUTHORS:     Mark Zenier;
  12. */
  13.  
  14. /*
  15.     description    switch case actions for binary operators for
  16.             both the parse and output phase expression
  17.             evaluators
  18. */
  19.  
  20.  
  21.         case IFC_MUL:
  22.             etop *= (estkm1p--)->v;
  23.             break;
  24.  
  25.         case IFC_DIV:
  26.             etop = (estkm1p--)->v/etop;
  27.             break;
  28.  
  29.         case IFC_ADD:
  30.             etop += (estkm1p--)->v;
  31.             break;
  32.  
  33.         case IFC_SUB:
  34.             etop = (estkm1p--)->v - etop;
  35.             break;
  36.  
  37.         case IFC_MOD:
  38.             etop = (estkm1p--)->v % etop;
  39.             break;
  40.  
  41.         case IFC_SHL:
  42.             etop = (estkm1p--)->v << etop;
  43.             break;
  44.  
  45.         case IFC_SHR:
  46.             etop = (estkm1p--)->v >> etop;
  47.             break;
  48.  
  49.         case IFC_AND:
  50.             etop &= (estkm1p--)->v;
  51.             break;
  52.  
  53.         case IFC_OR:
  54.             etop |= (estkm1p--)->v;
  55.             break;
  56.  
  57.         case IFC_XOR:
  58.             etop ^= (estkm1p--)->v;
  59.             break;
  60.  
  61.         case IFC_GT:
  62.             etop = (estkm1p--)->v > etop ? 1 : 0;
  63.             break;
  64.  
  65.         case IFC_GE:
  66.             etop = (estkm1p--)->v >= etop ? 1 : 0;
  67.             break;
  68.  
  69.         case IFC_LT:
  70.             etop = (estkm1p--)->v < etop ? 1 : 0;
  71.             break;
  72.  
  73.         case IFC_LE:
  74.             etop = (estkm1p--)->v <= etop ? 1 : 0;
  75.             break;
  76.  
  77.         case IFC_NE:
  78.             etop = (estkm1p--)->v != etop ? 1 : 0;
  79.             break;
  80.  
  81.         case IFC_EQ:
  82.             etop = (estkm1p--)->v == etop ? 1 : 0;
  83.             break;
  84.  
  85.